Tempo de horário eleitoral disponível para cada candidato e voto

Principais assuntos das eleicoes municípais de 2020

grafico de linha histórico político de campos

# banco_familia %>% 
#   # filter(candidato %in% c("Anthony Garotinho", "Sérgio Mendes", "Arnaldo Vianna", "Carlos Campista", "Rosinha Garotinho", "Rafael Diniz", "Wladimir Garotinho")) %>% 
#   ggplot(aes(x=as_factor(ano_eleitoral), y=percent_votos, col = apoiador, group = line_x))+
#   geom_line(stat = "identity", color = "#808080", size = 1.2, alpha = 0.7)+
#   geom_point(size= 1.5, color = "#808080", alpha = 0.7)+
#   geom_label_repel(aes(label = candidato),
#                   size = 3,
#                   box.padding   = 0.35,
#                   point.padding = 0.5)+
#   scale_y_continuous(labels=function(x) paste0(x,"%"))+
#   #scale_x_continuous(breaks = c(2004,2008,2012,2016,2020))+
#   theme_fivethirtyeight()+ 
#   ylab("Votos")+
#   labs(title = "Histórico político de Campos dos Goytacazes", x = NULL,  col = "Grupo famíliar")+
#   theme(axis.text.y = element_text(size = 11),
#         axis.title.y = element_text(size = 11),
#         axis.title.x = element_text(size = 10),
#         axis.text.x = element_text(size = 11),
#         legend.text = element_text(size = 14),
#         title = element_text(size = 10),
#         panel.background = element_rect(fill = "white", colour = "white", color = "white"),
#         plot.background = element_rect(fill = "white", colour = "white", color = "white"),
#         legend.background=element_rect(fill="white"),
#         legend.key = element_rect(fill = "white", color = "white"),
#         strip.background=element_rect(fill="white", colour="white"), 
#         panel.grid.major.x = element_line(colour= "#eceff2"),
#         panel.grid.major.y = element_line(colour= "#eceff2"))

código certo - histórico eleitoral

intencao de votos e margem de erro

Grafico garotinho X anti-garotinho

#knitr::write_bib(c(“dplyr”, “readxl”, “tidyverse”), file= “bib.bib”)